home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00154_Gender underscore.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  423 b   |  20 lines
  1. property pSpr
  2. global gPlayerGender
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   case gPlayerGender of
  7.     #male:
  8.       mSetEntry(me, member("male selected"), sprite(me.spriteNum - 2).loc)
  9.     #female:
  10.       mSetEntry(me, member("female selected"), sprite(me.spriteNum - 1).loc)
  11.     otherwise:
  12.       pSpr.locH = 1000
  13.   end case
  14. end
  15.  
  16. on mSetEntry me, newMember, newLoc
  17.   pSpr.member = newMember
  18.   pSpr.loc = newLoc
  19. end
  20.